home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 132 / Tiger_Disk_132_20xx_Tiger-Crew-Disk_de_Side_A.d64 / tombola pac (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  109 lines
  1. 2 g=1:p=60:y=110:gosub200:gosub4000
  2. 5 rem tombola pac
  3. 6 rem von peter diehm 23.4.1991
  4. 7 rem (w) fuer public domain
  5. 8 a=20:a=a+int(12*rnd(1))+1::s=1
  6. 10 poke 53280,0:poke53281,0:printchr$(142)"[147]":poke 650,255:poke657,128
  7. 11 rem start
  8. 12 fort=1to20:print"--";:next
  9. 14 print"              tombola pac"
  10. 15 print"     (w) by p.d. fuer den pd gebrauch
  11. 18 [129]t[178]1[164]20:[153]"--";:[130]
  12. 20 [141] 1000
  13. 25 [129]i[178]1[164]20:[153]"--";:[130]
  14. 28 [153]"    1    2     3    4    5    6":[141] 150
  15. 29 [151] v[170]0,p:[151]v[170]1,y
  16. 30 [161] d$:[139]d$[178]"" [167]30
  17. 32 [139] d$[178]"+" [167] g[178]g[170]1
  18. 34 [139] d$[178]"-" [167] g[178]g[171]1
  19. 36 [139] d$[178]"^" [167] 50
  20. 38 [139] g[178]7 [167] g[178]1
  21. 39 [139] g[178]0 [167] g[178]6
  22. 40 [139] g[178]1 [167] p[178]60:y[178]110
  23. 41 [139] g[178]2 [167]p[178]100:y[178]110
  24. 42 [139] g[178]3 [167]p[178]140:y[178]110
  25. 43 [139] g[178]4 [167] p[178]180:y[178]110
  26. 44 [139] g[178]5 [167] p[178]220:y[178]110
  27. 45 [139] g[178]6 [167] p[178]255:y[178]110
  28. 49 [137] 29
  29. 50 [153][166]3)"ok.
  30. 52 printspc(3)"du ziehst das los"g""
  31. 53 fort=1to100:pokev+39,t:nextt:pokev+39,7
  32. 54 if g=f then w=int(11*rnd(1))+1:printspc(3)"du gewinnst"w"$":a=a+w
  33. 56 if g<>f then printspc(3)"leider eine niete !":a=a-1
  34. 59 printspc(30)"-taste-"
  35. 65 get c$:ifc$="" then 65
  36. 66 k=k+1
  37. 67 if a<-50 then 3500
  38. 68 if a>100 thengoto2000
  39. 69 goto 10
  40. 99 end
  41. 150 print"   kohle:[146]"a"$  spiel nr."k"":return
  42. 199 end
  43. 200 rem sprite
  44. 210 v=53248:poke v+39,7:pokev+23,29
  45. 220 for i= 0 to 64:read x:poke 832+i,x
  46. 250 next i
  47. 260 data 60,0,0,110,0,0,255,0,0,7,0,0,15,0,0,30,0,0,60,0,0,0,0,0,0,0,0,0,0,0,0,
  48. 270 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  49. 275 data 60,0,0,110,0,0,255,0,0,15,0,0,255,0,0,126,0,0,60,0,0,0,0,0,0,0,0,0,0,0
  50. 380 poke 53269,1:poke2040,13:pokev+43,0
  51. 400 poke v+0,p:poke v+1,y
  52. 405 return
  53. 1000 print"   [207][183][183][208] [207][183][183][208] [207][183][183][208] [207][183][183][208] [207][183][183][208] [207][183][183][208]   p
  54. 1002 [153]"   fn  + fn  + fn  + fn  + fn  + fn  +   a
  55. 1004 print"   [165]  [170] [165]  [170] [165]  [170] [165]  [170] [165]  [170] [165]  [170]   c
  56. 1005 [153]"   usrusrusrusr usrusrusrusr usrusrusrusr usrusrusrusr usrusrusrusr usrusrusrusr   i
  57. 1008 f=int(7*rnd(1))+1
  58. 1010 return
  59. 2000 rem
  60. 2001 o=int(5*rnd(1))+1
  61. 2003 on o goto 10,2010,2020,2030,10
  62. 2005 goto 2000
  63. 2010 printspc(3)"der losverkauefer ist pleite !"
  64. 2012 fori=1to3000:next:goto3000
  65. 2020 printspc(3)"die tombola wird geschlossen !"
  66. 2022 fori=1to3000:next:goto3000
  67. 2030 printspc(3)"du hast keine lust mehr !"
  68. 2032 fori=1to3000:next:goto3000
  69. 3000 print"[147]":poke 53269,0
  70. 3002 printspc(3)"du bist einwenig traurig, dass du
  71. 3004 [153][166]3)"nicht mehr weiter spielen kannst
  72. 3007 printspc(3)"doch das gewonnene geld ist ein
  73. 3009 [139] a[177]100 [175] a[179]110 [167] [153][166]3)"kleiner trost !"
  74. 3010 [139] a[177]110 [167][153][166]3)"grosser trost !"
  75. 3012 [153][166]3)"du hast "a" kohle gewonnen - damit
  76. 3015 printspc(3)"kaufst du dir 100 pd disketten.
  77. 3020 [153][166]30)"-taste-"
  78. 3022 [161] d$:[139]d$[178]"" [167] 3022
  79. 3024 [153][166]3)"noch ein game (j/n) ";:[133] y$
  80. 3026 [139] y$[178]"j" [176] y$[178]"ja" [167] [138]
  81. 3027 [139] y$[178]"n" [176] y$[178]"nein" [167] 4000
  82. 3030 [153][166]3)"entweder ja oder nein !!!":[137] 3024
  83. 3500 [153][166]3)"du wirst von der tombola
  84. 3502 printspc(3)"verbannt."
  85. 3505 goto 3024
  86. 4000 print"[147]":poke53281,0:poke53280,0:printchr$(14)""
  87. 4002 poke 53269,1:pokev+0,60:pokev+1,60
  88. 4004 printspc(5)" [212]ombola [208]ac
  89. 4005 [153][166]5)"  von (NULL)eter str$iehm
  90. 4007 printspc(5)"   (w) by 23.4.1991
  91. 4010 [129]t[178]1[164]20:[153]"--";:[130]
  92. 4012 [153]"  (NULL)aciboy ist bei seinem (NULL)onntags-
  93. 4013 print"  [193]usflug in eine [198]eier mit einer
  94. 4015 [153]"  (NULL)ombola gekommen ! valifrig versucht
  95. 4016 print"  er, seine [203]ohle ([199]eld) zu vermehren !
  96. 4018 [153]"  valin (NULL)os kostet 1 $. str$u kannst unter
  97. 4019 print"  6 [204]osen aussuchen, indem du [208]aciboy
  98. 4020 [153]"  mit den (NULL)asten +wait/-wait = rechts/links
  99. 4023 print"  steuerst und mit ^[146] das [204]os ziehst.
  100. 4025 [153]"def  (NULL)iel valrfolg !!!
  101. 4028 print"  [154](w) fuer [208]ublic [196]omain
  102. 4030 [153][166]30)"-(NULL)aste-"
  103. 4034 [161] d$:[139]d$[178]"" [167] 4034
  104. 4037 [142]
  105. 5000 [143] peter diehm
  106. 5002 [143] waldstr.58
  107. 5005 [143] 6149 rimbach 1
  108. 5010 [143] ihr duerft kopieren !!!
  109.